Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.

?????

Gọi x là giá 1 hộp sữa ban đầu
Vì đc tặng 1 hộp sữa nên 5 hộp sữa giá chỉ 90000
Giá 1 hộp sữa khi đc giảm giá là 90000:5=18000
Giá 1 hộp sữa ban đầu là 18000:80*100=22500( đồng )

Good morning ! Welcome to the weather forecast. Let's take a look at the weather today and tomorrow. Today, it's cool and sunny in Ha Noi. What will the weather be tomorrow ?  Well, it will be hot and sunny. This is the weather forecast of today and tomorrow. The program is coming to an end. Please watch the show tomorrow. Have a nice day. Good bye !

Good morning ! We will come to weather forecasts today and tomorrow .Today in Hanoi it's cool and sunny. What will tomorrow be? Watch ! Tomorrow in Hanoi it's hot and sunny .This is the weather forecast today and tomorrow . The weather forecast program here comes to end . Please watch the show tomorrow. Have a nice day ! Goodbye .
 

mình nên k cho ai đây . Ai cũng hay 

Var a:array[1..100] of integer;

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

Tham Khảo:

uses crt;

var ngay:integer;

lp:string;

begin

clrscr;

repeat

write('nhap so ngay thue phong khach san:'); readln(ngay);

if ngay<=0 then writeln('nhap lai');

until ngay>0;

repeat

write('nhap loai phong:'); readln(lp);

if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');

until (lp='A') or (lp='B') or (lp='C');

case lp of

'A': write(300000*ngay);

'B': write(250000*ngay);

'C': write(200000*ngay);

end;

readln;

end.

Bạn tham khảo ở nguồn này nha.

Tham khảo code chương trình nhập vào ngày tháng năm - programming - Dạy Nhau Học (daynhauhoc.com)

chẳng liênn quan j đến học cả,xin bớt đăng những thứ đó lên học 24 nha